home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue30 / bdeorx / BDEDORX.ZIP / D1 / BDEDORXT.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1997-10-15  |  901 b   |  48 lines
  1. unit BDEDoRxT;
  2.  
  3. {$S-}
  4.  
  5. interface
  6.  
  7. uses
  8.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  9.   Forms, Dialogs, StdCtrls, DBITypes;
  10.  
  11. type
  12.   TTrimDlg = class(TForm)
  13.     TrimButton: TButton;
  14.     SaveButton: TButton;
  15.     AbortButton: TButton;
  16.     Memo1: TMemo;
  17.     TrimAllButton: TButton;
  18.     procedure ButtonClick(Sender: TObject);
  19.   private
  20.   public
  21.   end;
  22.  
  23. var
  24.   TrimDlg: TTrimDlg;
  25.  
  26. const
  27.   {index of Memoline holding the Fieldname:}
  28.   FieldLineIndex: integer = 1;
  29.  
  30. implementation
  31.  
  32. {$R *.DFM}
  33.  
  34. procedure TTrimDlg.ButtonClick(Sender: TObject);
  35. begin
  36.   if (Sender = TrimButton) then
  37.     Tag := longint(cbrYES);
  38.   if (Sender = SaveButton) then
  39.     Tag := longint(cbrNO);
  40.   if (Sender = AbortButton) then
  41.     Tag := longint(cbrABORT);
  42.   if (Sender = TrimAllButton) then
  43.     Tag := longint(cbrPARTIALASSIST);
  44.   ModalResult := mrOK;
  45. end;
  46.  
  47. end.
  48.